10 REM ****************************
20 REM *   JULIA-MENGEN (X^5)     *
30 REM * 1987 BY STEFAN VILSMEIER *
40 REM ****************************
110 :
240 XA=1:YA=0:XB=.309017:YB=.9510565:XC=-(XB+.5):YC=.5877825
245 XD=XC:YD=-YC:XE=XB:YE=-YB
410 : IF (ZZ<8ANDINT(ZZ/2)=ZZ/2)OR(F=0ANDZZ>=13)THEN SYS 50182,XX,YY,1
552 ZA = ZA-5*((X-XD)*(X-XD)+(Y-YD)*(Y-YD)<=EP)
554 ZA = ZA-6*((X-XE)*(X-XE)+(Y-YE)*(Y-YE)<=EP)
580 N  = N*N*N*N:XY  = X
590 X  = .8*XY+.2*(XQ*XQ-6*XQ*YQ+YQ*YQ)/N
595 Y  = .8*(Y+(XY*Y*YQ-XY*Y*XQ)/N)
620 F  = -(N<1E-5)
630 IF F=0 THEN F=-(N>1E+5)
640 IF F=0 THEN F=ZA